inherited crdTenantNew: TcrdTenantNew
  Left = 402
  Top = 206
  VertScrollBar.Range = 0
  ActiveControl = cbCType
  BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
  BorderStyle = bsDialog
  Caption = #1057#1086#1079#1076#1072#1085#1080#1077' '#1075#1088#1072#1078#1076#1072#1085#1080#1085#1072
  ClientHeight = 408
  ClientWidth = 722
  Constraints.MinHeight = 435
  Constraints.MinWidth = 730
  OldCreateOrder = True
  ShowHint = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object pContragent: TPanel [0]
    Left = 0
    Top = 52
    Width = 363
    Height = 329
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 4
    DesignSize = (
      363
      329)
    object Label51: TLabel
      Left = 10
      Top = 3
      Width = 118
      Height = 13
      Alignment = taRightJustify
      Caption = #1053#1072#1079#1074#1072#1085#1080#1077' '#1086#1088#1075#1072#1085#1080#1079#1072#1094#1080#1080
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label57: TLabel
      Left = 10
      Top = 46
      Width = 189
      Height = 13
      Alignment = taRightJustify
      Caption = #1057#1086#1082#1088#1072#1097#1077#1085#1085#1086#1077' '#1085#1072#1079#1074#1072#1085#1080#1077' '#1086#1088#1075#1072#1085#1080#1079#1072#1094#1080#1080
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label58: TLabel
      Left = 10
      Top = 93
      Width = 83
      Height = 13
      Alignment = taRightJustify
      Caption = #1060#1048#1054' '#1076#1080#1088#1077#1082#1090#1086#1088#1072
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object dbeFullName: TDBEditEh
      Left = 16
      Top = 20
      Width = 333
      Height = 19
      AlwaysShowBorder = True
      Anchors = [akLeft, akTop, akRight]
      DataField = 'UL_FULL_NAME'
      DataSource = dscTenantNew
      EditButtons = <>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      Visible = True
    end
    object dbeShortName: TDBEditEh
      Left = 16
      Top = 67
      Width = 333
      Height = 19
      AlwaysShowBorder = True
      Anchors = [akLeft, akTop, akRight]
      DataField = 'UL_SHORT_NAME'
      DataSource = dscTenantNew
      EditButtons = <>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      Visible = True
    end
    object dbeBoss: TDBEditEh
      Left = 16
      Top = 114
      Width = 333
      Height = 19
      AlwaysShowBorder = True
      Anchors = [akLeft, akTop, akRight]
      DataField = 'BOSS'
      DataSource = dscTenantNew
      EditButtons = <>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      Visible = True
    end
  end
  inherited Panel1: TPanel
    Top = 381
    Width = 722
    TabOrder = 1
    inherited BitBtn1: TBitBtn
      Left = 515
    end
    inherited BitBtn2: TBitBtn
      Left = 617
    end
  end
  inherited ToolBar1: TToolBar
    Width = 722
    TabOrder = 2
  end
  object Panel3: TPanel [3]
    Left = 0
    Top = 29
    Width = 722
    Height = 23
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Label49: TLabel
      Left = 7
      Top = 5
      Width = 85
      Height = 13
      Alignment = taRightJustify
      Caption = #1058#1080#1087' '#1082#1086#1085#1090#1088#1072#1075#1077#1085#1090#1072
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object cbCType: TDBComboBoxEh
      Left = 98
      Top = 2
      Width = 252
      Height = 19
      AlwaysShowBorder = True
      DataField = 'CTYPE'
      DataSource = dscTenantNew
      EditButtons = <>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      Items.Strings = (
        #1060#1080#1079#1080#1095#1077#1089#1082#1086#1077' '#1083#1080#1094#1086
        #1070#1088#1080#1076#1080#1095#1077#1089#1082#1086#1077' '#1083#1080#1094#1086)
      KeyItems.Strings = (
        '0'
        '1')
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      Visible = True
      OnChange = cbCTypeChange
    end
  end
  object pClient: TPanel [4]
    Left = 0
    Top = 52
    Width = 363
    Height = 329
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 3
    object gbAddress: TGroupBox
      Left = 0
      Top = 219
      Width = 363
      Height = 110
      Align = alClient
      Caption = ' '#1055#1088#1086#1087#1080#1089#1082#1072' '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      object Label6: TLabel
        Left = 2
        Top = 63
        Width = 50
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #1057#1090#1072#1090#1091#1089
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 2
        Top = 19
        Width = 50
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #1040#1076#1088#1077#1089
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 136
        Top = 85
        Width = 37
        Height = 13
        Alignment = taRightJustify
        Caption = #1087#1086' '#1076#1072#1090#1091
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label12: TLabel
        Left = 2
        Top = 85
        Width = 50
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #1089' '#1076#1072#1090#1099
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object lAddress: TLabel
        Left = 58
        Top = 20
        Width = 257
        Height = 37
        AutoSize = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold, fsUnderline]
        ParentFont = False
        WordWrap = True
      end
      object dteClientStatusEnd: TDBDateTimeEditEh
        Left = 178
        Top = 82
        Width = 73
        Height = 19
        AlwaysShowBorder = True
        EditButtons = <>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Flat = True
        Kind = dtkDateEh
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        Visible = True
      end
      object dteClientStatusStart: TDBDateTimeEditEh
        Left = 58
        Top = 82
        Width = 73
        Height = 19
        AlwaysShowBorder = True
        EditButtons = <>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Flat = True
        Kind = dtkDateEh
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        Visible = True
      end
      object lcbClientStatus: TDBLookupComboboxEh
        Left = 58
        Top = 60
        Width = 193
        Height = 19
        AlwaysShowBorder = True
        EditButtons = <>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Flat = True
        KeyField = 'ID'
        ListField = 'STATUS'
        ListSource = dscListStatus
        ParentFont = False
        ShowHint = True
        TabOrder = 2
        Visible = True
      end
    end
    object Panel4: TPanel
      Left = 0
      Top = 0
      Width = 363
      Height = 146
      Align = alTop
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 0
      DesignSize = (
        363
        146)
      object Label38: TLabel
        Left = 16
        Top = 78
        Width = 47
        Height = 13
        Alignment = taRightJustify
        Caption = #1054#1090#1095#1077#1089#1090#1074#1086
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label37: TLabel
        Left = 41
        Top = 56
        Width = 22
        Height = 13
        Alignment = taRightJustify
        Caption = #1048#1084#1103
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label36: TLabel
        Left = 43
        Top = 12
        Width = 20
        Height = 13
        Alignment = taRightJustify
        Caption = #1055#1086#1083
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label34: TLabel
        Left = 14
        Top = 34
        Width = 49
        Height = 13
        Alignment = taRightJustify
        Caption = #1060#1072#1084#1080#1083#1080#1103
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label39: TLabel
        Left = 10
        Top = 100
        Width = 55
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #1059#1048#1053
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label40: TLabel
        Left = 10
        Top = 122
        Width = 55
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #1057#1043#1055#1057
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label1: TLabel
        Left = 177
        Top = 12
        Width = 79
        Height = 13
        Alignment = taRightJustify
        Anchors = [akTop, akRight]
        Caption = #1044#1072#1090#1072' '#1088#1086#1078#1076#1077#1085#1080#1103
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object cbSex: TDBComboBoxEh
        Left = 69
        Top = 9
        Width = 45
        Height = 19
        AlwaysShowBorder = True
        DataField = 'SEX'
        DataSource = dscTenantNew
        EditButtons = <>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Flat = True
        Items.Strings = (
          '?'
          #1052
          #1046)
        KeyItems.Strings = (
          ''
          #1052
          #1046)
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        Visible = True
      end
      object lcbClientSName: TDBLookupComboboxEh
        Left = 69
        Top = 75
        Width = 270
        Height = 19
        AlwaysShowBorder = True
        Anchors = [akLeft, akTop, akRight]
        DataField = 'SNAME'
        DataSource = dscTenantNew
        EditButtons = <>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Flat = True
        KeyField = 'ID'
        ListField = 'NAME'
        ListSource = dsc_SNames
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        Style = csDropDownEh
        TabOrder = 1
        Visible = True
        OnExit = lcbSNameExit
        OnNotInList = lcbLNameNotInList
      end
      object lcbClientLName: TDBLookupComboboxEh
        Left = 69
        Top = 31
        Width = 270
        Height = 19
        AlwaysShowBorder = True
        Anchors = [akLeft, akTop, akRight]
        DataField = 'LNAME'
        DataSource = dscTenantNew
        EditButtons = <>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Flat = True
        KeyField = 'ID'
        ListField = 'NAME'
        ListSource = dsc_LNames
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        Style = csDropDownEh
        TabOrder = 2
        Visible = True
        OnNotInList = lcbLNameNotInList
      end
      object lcbClientFName: TDBLookupComboboxEh
        Left = 69
        Top = 53
        Width = 270
        Height = 19
        AlwaysShowBorder = True
        Anchors = [akLeft, akTop, akRight]
        DataField = 'FNAME'
        DataSource = dscTenantNew
        EditButtons = <>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Flat = True
        KeyField = 'ID'
        ListField = 'NAME'
        ListSource = dsc_FNames
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        Style = csDropDownEh
        TabOrder = 3
        Visible = True
        OnExit = lcbFNameExit
        OnNotInList = lcbLNameNotInList
      end
      object dbeTenId: TDBEditEh
        Left = 69
        Top = 97
        Width = 270
        Height = 19
        AlwaysShowBorder = True
        Anchors = [akLeft, akTop, akRight]
        DataField = 'TEN_ID'
        DataSource = dscTenantNew
        EditButtons = <>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Flat = True
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
        Visible = True
      end
      object dbeSGPS: TDBEditEh
        Left = 69
        Top = 119
        Width = 270
        Height = 19
        AlwaysShowBorder = True
        Anchors = [akLeft, akTop, akRight]
        DataField = 'SGPS'
        DataSource = dscTenantNew
        EditButtons = <>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Flat = True
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 5
        Visible = True
      end
      object dbdtBdate: TDBDateTimeEditEh
        Left = 266
        Top = 9
        Width = 73
        Height = 19
        AlwaysShowBorder = True
        Anchors = [akTop, akRight]
        DataField = 'BIRTHDATE'
        DataSource = dscTenantNew
        EditButton.Enabled = False
        EditButton.Visible = False
        EditButtons = <>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Flat = True
        Kind = dtkDateEh
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 6
        Visible = True
      end
    end
    object GroupBox3: TGroupBox
      Left = 0
      Top = 146
      Width = 363
      Height = 73
      Align = alTop
      Caption = ' '#1052#1077#1089#1090#1086' '#1088#1072#1073#1086#1090#1099' '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      DesignSize = (
        363
        73)
      object Label7: TLabel
        Left = 19
        Top = 23
        Width = 67
        Height = 13
        Alignment = taRightJustify
        Caption = #1054#1088#1075#1072#1085#1080#1079#1072#1094#1080#1103
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label8: TLabel
        Left = 28
        Top = 45
        Width = 58
        Height = 13
        Alignment = taRightJustify
        Caption = #1044#1086#1083#1078#1085#1086#1089#1090#1100
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object DBEditEh4: TDBEditEh
        Left = 91
        Top = 20
        Width = 248
        Height = 19
        AlwaysShowBorder = True
        Anchors = [akLeft, akTop, akRight]
        DataField = 'WORKPLACE'
        DataSource = dscTenantNew
        EditButtons = <>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Flat = True
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        Visible = True
      end
      object DBEditEh5: TDBEditEh
        Left = 91
        Top = 42
        Width = 248
        Height = 19
        AlwaysShowBorder = True
        Anchors = [akLeft, akTop, akRight]
        DataField = 'RANK'
        DataSource = dscTenantNew
        EditButtons = <>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Flat = True
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        Visible = True
      end
    end
  end
  object GroupBox6: TGroupBox [5]
    Left = 363
    Top = 52
    Width = 359
    Height = 329
    Align = alRight
    Caption = ' '#1056#1077#1082#1074#1080#1079#1080#1090#1099' '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 5
    object Label52: TLabel
      Left = 65
      Top = 41
      Width = 25
      Height = 13
      Alignment = taRightJustify
      Caption = #1041#1072#1085#1082
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label54: TLabel
      Left = 39
      Top = 107
      Width = 51
      Height = 13
      Alignment = taRightJustify
      Caption = #1070#1088'. '#1072#1076#1088#1077#1089
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label55: TLabel
      Left = 37
      Top = 63
      Width = 53
      Height = 13
      Alignment = taRightJustify
      Caption = #1050#1086#1088#1088'. '#1089#1095#1077#1090
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label56: TLabel
      Left = 62
      Top = 151
      Width = 28
      Height = 13
      Alignment = taRightJustify
      Caption = 'E-mail'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label59: TLabel
      Left = 10
      Top = 19
      Width = 80
      Height = 13
      Alignment = taRightJustify
      Caption = #1056#1072#1089#1095#1077#1090#1085#1099#1081' '#1089#1095#1077#1090
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label60: TLabel
      Left = 26
      Top = 129
      Width = 64
      Height = 13
      Alignment = taRightJustify
      Caption = #1060#1072#1082#1090'. '#1072#1076#1088#1077#1089
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label53: TLabel
      Left = 37
      Top = 85
      Width = 55
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1041#1048#1050
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label48: TLabel
      Left = 37
      Top = 173
      Width = 55
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1058#1077#1083#1077#1092#1086#1085
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label45: TLabel
      Left = 37
      Top = 195
      Width = 53
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1048#1053#1053
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object dbeBank: TDBEditEh
      Left = 96
      Top = 38
      Width = 207
      Height = 19
      AlwaysShowBorder = True
      DataField = 'BANK'
      DataSource = dscTenantNew
      EditButtons = <>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      Visible = True
    end
    object dbeJAddress: TDBEditEh
      Left = 96
      Top = 104
      Width = 207
      Height = 19
      AlwaysShowBorder = True
      DataField = 'JADDRESS'
      DataSource = dscTenantNew
      EditButtons = <>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      Visible = True
    end
    object dbeKRS: TDBEditEh
      Left = 96
      Top = 60
      Width = 207
      Height = 19
      AlwaysShowBorder = True
      DataField = 'KRS'
      DataSource = dscTenantNew
      EditButtons = <>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      Visible = True
    end
    object dbeMAIL: TDBEditEh
      Left = 96
      Top = 148
      Width = 207
      Height = 19
      AlwaysShowBorder = True
      DataField = 'MAIL'
      DataSource = dscTenantNew
      EditButtons = <>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
      Visible = True
    end
    object dbeRS: TDBEditEh
      Left = 96
      Top = 16
      Width = 207
      Height = 19
      AlwaysShowBorder = True
      DataField = 'RS'
      DataSource = dscTenantNew
      EditButtons = <>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      Visible = True
    end
    object dbeRADDRESS: TDBEditEh
      Left = 96
      Top = 126
      Width = 207
      Height = 19
      AlwaysShowBorder = True
      DataField = 'RADDRESS'
      DataSource = dscTenantNew
      EditButtons = <>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
      Visible = True
    end
    object dbeBIK: TDBEditEh
      Left = 96
      Top = 82
      Width = 207
      Height = 19
      AlwaysShowBorder = True
      DataField = 'BIK'
      DataSource = dscTenantNew
      EditButtons = <>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      Visible = True
    end
    object dbeContragentPhone: TDBEditEh
      Left = 96
      Top = 170
      Width = 207
      Height = 19
      AlwaysShowBorder = True
      DataField = 'PHONE'
      DataSource = dscTenantNew
      EditButtons = <>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 7
      Visible = True
    end
    object dbeINN: TDBEditEh
      Left = 96
      Top = 192
      Width = 207
      Height = 19
      AlwaysShowBorder = True
      DataField = 'INN'
      DataSource = dscTenantNew
      EditButtons = <>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 8
      Visible = True
    end
  end
  inherited ActionList1: TActionList
    Left = 360
    Top = 90
    inherited aSave: TAction
      OnExecute = aSaveExecute
    end
    inherited aCancel: TAction
      OnExecute = aCancelExecute
    end
  end
  inherited PropStorage: TPropStorageEh
    Section = 'crdTenantNew'
    Left = 196
  end
  object trTenantNew: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 540
    Top = 73
  end
  object dsTenantNew: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE CLIENTS'
      'SET '
      '    FNAME = :FNAME,'
      '    SNAME = :SNAME,'
      '    LNAME = :LNAME,'
      '    SEX = :SEX,'
      '    BIRTHDATE = :BIRTHDATE,'
      '    PHONE = :PHONE,'
      '    INN = :INN,'
      '    TEN_ID = :TEN_ID,'
      '    WORKABILITY = :WORKABILITY,'
      '    LIVING_STAT = :LIVING_STAT,'
      '    CALC_SUBSIDY = :CALC_SUBSIDY,'
      '    SGPS = :SGPS,'
      '    RANK = :RANK,'
      '    WORKPLACE = :WORKPLACE,'
      '    SUBS_RECIVE = :SUBS_RECIVE,'
      '    LGOT_RECIVE = :LGOT_RECIVE,'
      '    DEATHDATE = :DEATHDATE,'
      '    BOSS = :BOSS,'
      '    UL_FULL_NAME = :UL_FULL_NAME,'
      '    UL_SHORT_NAME = :UL_SHORT_NAME,'
      '    RADDRESS = :RADDRESS,'
      '    JADDRESS = :JADDRESS,'
      '    MAIL = :MAIL,'
      '    RS = :RS,'
      '    BANK = :BANK,'
      '    KRS = :KRS,'
      '    BIK = :BIK,'
      '    CITY = :CITY,'
      '    OKONH = :OKONH,'
      '    OKPO = :OKPO,'
      '    BALANS = :BALANS'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    CLIENTS'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO CLIENTS('
      '    ID,'
      '    CTYPE,'
      '    FNAME,'
      '    SNAME,'
      '    LNAME,'
      '    SEX,'
      '    BIRTHDATE,'
      '    PHONE,'
      '    INN,'
      '    TEN_ID,'
      '    WORKABILITY,'
      '    LIVING_STAT,'
      '    CALC_SUBSIDY,'
      '    SGPS,'
      '    RANK,'
      '    WORKPLACE,'
      '    SUBS_RECIVE,'
      '    LGOT_RECIVE,'
      '    DEATHDATE,'
      '    BOSS,'
      '    UL_FULL_NAME,'
      '    UL_SHORT_NAME,'
      '    RADDRESS,'
      '    JADDRESS,'
      '    MAIL,'
      '    RS,'
      '    BANK,'
      '    KRS,'
      '    BIK,'
      '    CITY,'
      '    OKONH,'
      '    OKPO,'
      '    BALANS'
      ')'
      'VALUES('
      '    :ID,'
      '    :CTYPE,'
      '    :FNAME,'
      '    :SNAME,'
      '    :LNAME,'
      '    :SEX,'
      '    :BIRTHDATE,'
      '    :PHONE,'
      '    :INN,'
      '    :TEN_ID,'
      '    :WORKABILITY,'
      '    :LIVING_STAT,'
      '    :CALC_SUBSIDY,'
      '    :SGPS,'
      '    :RANK,'
      '    :WORKPLACE,'
      '    :SUBS_RECIVE,'
      '    :LGOT_RECIVE,'
      '    :DEATHDATE,'
      '    :BOSS,'
      '    :UL_FULL_NAME,'
      '    :UL_SHORT_NAME,'
      '    :RADDRESS,'
      '    :JADDRESS,'
      '    :MAIL,'
      '    :RS,'
      '    :BANK,'
      '    :KRS,'
      '    :BIK,'
      '    :CITY,'
      '    :OKONH,'
      '    :OKPO,'
      '    :BALANS'
      ')'
      'returning id, name')
    RefreshSQL.Strings = (
      'SELECT'
      '    ID,'
      '    CTYPE,'
      '    NAME,'
      '    FNAME,'
      '    SNAME,'
      '    LNAME,'
      '    SEX,'
      '    BIRTHDATE,'
      '    PHONE,'
      '    INN,'
      '    TEN_ID,'
      '    WORKABILITY,'
      '    LIVING_STAT,'
      '    CALC_SUBSIDY,'
      '    SGPS,'
      '    RANK,'
      '    WORKPLACE,'
      '    SUBS_RECIVE,'
      '    LGOT_RECIVE,'
      '    NAME_SHORT,'
      '    DEATHDATE,'
      '    BOSS,'
      '    UL_FULL_NAME,'
      '    UL_SHORT_NAME,'
      '    RADDRESS,'
      '    JADDRESS,'
      '    MAIL,'
      '    RS,'
      '    BANK,'
      '    KRS,'
      '    BIK,'
      '    CITY,'
      '    OKONH,'
      '    OKPO,'
      '    BALANS'
      'FROM'
      '    CLIENTS '
      'where(  id is null'
      '     ) and (     CLIENTS.ID = :OLD_ID'
      '     )'
      '    ')
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    CTYPE,'
      '    NAME,'
      '    FNAME,'
      '    SNAME,'
      '    LNAME,'
      '    SEX,'
      '    BIRTHDATE,'
      '    PHONE,'
      '    INN,'
      '    TEN_ID,'
      '    WORKABILITY,'
      '    LIVING_STAT,'
      '    CALC_SUBSIDY,'
      '    SGPS,'
      '    RANK,'
      '    WORKPLACE,'
      '    SUBS_RECIVE,'
      '    LGOT_RECIVE,'
      '    NAME_SHORT,'
      '    DEATHDATE,'
      '    BOSS,'
      '    UL_FULL_NAME,'
      '    UL_SHORT_NAME,'
      '    RADDRESS,'
      '    JADDRESS,'
      '    MAIL,'
      '    RS,'
      '    BANK,'
      '    KRS,'
      '    BIK,'
      '    CITY,'
      '    OKONH,'
      '    OKPO,'
      '    BALANS'
      'FROM'
      '    CLIENTS '
      'where id is null')
    Transaction = trTenantNew
    Database = MAINDM.pMainDatabase
    Left = 540
    Top = 125
    object dsTenantNewID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsTenantNewNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 1000
      EmptyStrToNull = True
    end
    object dsTenantNewBIRTHDATE: TFIBDateField
      FieldName = 'BIRTHDATE'
    end
    object dsTenantNewINN: TFIBStringField
      FieldName = 'INN'
      Size = 12
      EmptyStrToNull = True
    end
    object dsTenantNewSEX: TFIBStringField
      FieldName = 'SEX'
      Size = 1
      EmptyStrToNull = True
    end
    object dsTenantNewTEN_ID: TFIBStringField
      FieldName = 'TEN_ID'
      Size = 60
      EmptyStrToNull = True
    end
    object dsTenantNewRANK: TFIBStringField
      FieldName = 'RANK'
      Size = 255
      EmptyStrToNull = True
    end
    object dsTenantNewSGPS: TFIBStringField
      FieldName = 'SGPS'
      EmptyStrToNull = True
    end
    object dsTenantNewWORKPLACE: TFIBStringField
      FieldName = 'WORKPLACE'
      Size = 255
      EmptyStrToNull = True
    end
    object dsTenantNewFNAME: TFIBIntegerField
      FieldName = 'FNAME'
    end
    object dsTenantNewLNAME: TFIBIntegerField
      FieldName = 'LNAME'
    end
    object dsTenantNewSNAME: TFIBIntegerField
      FieldName = 'SNAME'
    end
    object dsTenantNewCTYPE: TFIBSmallIntField
      FieldName = 'CTYPE'
    end
    object dsTenantNewPHONE: TFIBStringField
      FieldName = 'PHONE'
      EmptyStrToNull = True
    end
    object dsTenantNewWORKABILITY: TFIBIntegerField
      FieldName = 'WORKABILITY'
    end
    object dsTenantNewLIVING_STAT: TFIBIntegerField
      FieldName = 'LIVING_STAT'
    end
    object dsTenantNewCALC_SUBSIDY: TFIBSmallIntField
      FieldName = 'CALC_SUBSIDY'
    end
    object dsTenantNewSUBS_RECIVE: TFIBSmallIntField
      FieldName = 'SUBS_RECIVE'
    end
    object dsTenantNewLGOT_RECIVE: TFIBSmallIntField
      FieldName = 'LGOT_RECIVE'
    end
    object dsTenantNewNAME_SHORT: TFIBStringField
      FieldName = 'NAME_SHORT'
      Size = 255
      EmptyStrToNull = True
    end
    object dsTenantNewDEATHDATE: TFIBDateField
      FieldName = 'DEATHDATE'
    end
    object dsTenantNewBOSS: TFIBStringField
      FieldName = 'BOSS'
      Size = 255
      EmptyStrToNull = True
    end
    object dsTenantNewUL_FULL_NAME: TFIBStringField
      FieldName = 'UL_FULL_NAME'
      Size = 1000
      EmptyStrToNull = True
    end
    object dsTenantNewUL_SHORT_NAME: TFIBStringField
      FieldName = 'UL_SHORT_NAME'
      Size = 255
      EmptyStrToNull = True
    end
    object dsTenantNewRADDRESS: TFIBStringField
      FieldName = 'RADDRESS'
      Size = 120
      EmptyStrToNull = True
    end
    object dsTenantNewJADDRESS: TFIBStringField
      FieldName = 'JADDRESS'
      Size = 120
      EmptyStrToNull = True
    end
    object dsTenantNewMAIL: TFIBStringField
      FieldName = 'MAIL'
      EmptyStrToNull = True
    end
    object dsTenantNewRS: TFIBStringField
      FieldName = 'RS'
      EmptyStrToNull = True
    end
    object dsTenantNewBANK: TFIBStringField
      FieldName = 'BANK'
      Size = 120
      EmptyStrToNull = True
    end
    object dsTenantNewKRS: TFIBStringField
      FieldName = 'KRS'
      EmptyStrToNull = True
    end
    object dsTenantNewBIK: TFIBStringField
      FieldName = 'BIK'
      EmptyStrToNull = True
    end
    object dsTenantNewCITY: TFIBStringField
      FieldName = 'CITY'
      EmptyStrToNull = True
    end
    object dsTenantNewOKONH: TFIBStringField
      FieldName = 'OKONH'
      EmptyStrToNull = True
    end
    object dsTenantNewOKPO: TFIBStringField
      FieldName = 'OKPO'
      EmptyStrToNull = True
    end
    object dsTenantNewBALANS: TFIBIntegerField
      FieldName = 'BALANS'
    end
  end
  object dscTenantNew: TDataSource
    DataSet = dsTenantNew
    Left = 600
    Top = 125
  end
  object dsListStatus: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE CLIENTS'
      'SET '
      '    NAME = :NAME,'
      '    BIRTHDATE = :BIRTHDATE,'
      '    INN = :INN,'
      '    TEN_ID = :TEN_ID,'
      '    SEX = :SEX,'
      '    SGPS = :SGPS,'
      '    RANK = :RANK,'
      '    WORKPLACE = :WORKPLACE'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    CLIENTS'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO CLIENTS('
      '    ID,'
      '    NAME,'
      '    BIRTHDATE,'
      '    INN,'
      '    TEN_ID,'
      '    SEX,'
      '    SGPS,'
      '    RANK,'
      '    WORKPLACE'
      ')'
      'VALUES('
      '    :ID,'
      '    :NAME,'
      '    :BIRTHDATE,'
      '    :INN,'
      '    :TEN_ID,'
      '    :SEX,'
      '    :SGPS,'
      '    :RANK,'
      '    :WORKPLACE'
      ')')
    RefreshSQL.Strings = (
      'select * from clients c'
      ''
      ' WHERE '
      '        C.ID = :OLD_ID'
      '    ')
    SelectSQL.Strings = (
      'select d.dir_val as id, d.name as status '
      'from directory d'
      'where d.class = '#39'TenStat'#39)
    Transaction = ReadTrans
    Database = MAINDM.pMainDatabase
    Left = 540
    Top = 225
    oFetchAll = True
    object dsListStatusID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsListStatusSTATUS: TFIBStringField
      FieldName = 'STATUS'
      Size = 255
      EmptyStrToNull = True
    end
  end
  object dscListStatus: TDataSource
    DataSet = dsListStatus
    Left = 600
    Top = 225
  end
  object spSetClientStatus: TpFIBStoredProc
    Transaction = trTenantNew
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      
        'EXECUTE PROCEDURE PROC_CLIENT_SET_STATUS (?PCLIENT_ID, ?PABONENT' +
        '_ID, ?PSTATUS, ?PDATE_1, ?PDATE_2)')
    StoredProcName = 'PROC_CLIENT_SET_STATUS'
    Left = 600
    Top = 175
    qoAutoCommit = True
    qoStartTransaction = True
  end
  object dsGetAbonAddress: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE CLIENTS'
      'SET '
      '    NAME = :NAME,'
      '    BIRTHDATE = :BIRTHDATE,'
      '    INN = :INN,'
      '    TEN_ID = :TEN_ID,'
      '    SEX = :SEX,'
      '    SGPS = :SGPS,'
      '    RANK = :RANK,'
      '    WORKPLACE = :WORKPLACE'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    CLIENTS'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO CLIENTS('
      '    ID,'
      '    NAME,'
      '    BIRTHDATE,'
      '    INN,'
      '    TEN_ID,'
      '    SEX,'
      '    SGPS,'
      '    RANK,'
      '    WORKPLACE'
      ')'
      'VALUES('
      '    :ID,'
      '    :NAME,'
      '    :BIRTHDATE,'
      '    :INN,'
      '    :TEN_ID,'
      '    :SEX,'
      '    :SGPS,'
      '    :RANK,'
      '    :WORKPLACE'
      ')')
    RefreshSQL.Strings = (
      'select * from clients c'
      ''
      ' WHERE '
      '        C.ID = :OLD_ID'
      '    ')
    SelectSQL.Strings = (
      'select address from v_abons a where a.id = :abonent_id')
    Transaction = ReadTrans
    Database = MAINDM.pMainDatabase
    Left = 540
    Top = 35
    object dsGetAbonAddressADDRESS: TFIBStringField
      FieldName = 'ADDRESS'
      Size = 245
      EmptyStrToNull = True
    end
  end
  object ds_CheckExists: TpFIBDataSet
    SelectSQL.Strings = (
      'select count(1)'
      'from clients c '
      'where c.name = :pname'
      '  and c.sex = :psex'
      '  and c.birthdate = :pbirthdate')
    Transaction = ReadTrans
    Database = MAINDM.pMainDatabase
    Left = 492
    Top = 125
    object ds_CheckExistsCOUNT: TFIBIntegerField
      FieldName = 'COUNT'
    end
  end
  object ds_LNames: TpFIBDataSet
    InsertSQL.Strings = (
      'INSERT INTO LAST_NAMES('
      '    NAME'
      ')'
      'VALUES('
      '    :NAME'
      ')'
      'returning id')
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME'
      'FROM'
      '    LAST_NAMES '
      'where id > -1'
      'order by 2')
    Database = MAINDM.pMainDatabase
    UpdateTransaction = NamesTrans
    Left = 412
    Top = 156
    object ds_LNamesID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_LNamesNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 30
      EmptyStrToNull = True
    end
  end
  object dsc_LNames: TDataSource
    DataSet = ds_LNames
    Left = 442
    Top = 156
  end
  object ds_FNames: TpFIBDataSet
    InsertSQL.Strings = (
      'INSERT INTO FIRST_NAMES('
      '    NAME, SEX'
      ')'
      'VALUES('
      '    :NAME, :SEX'
      ')'
      'returning id')
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME,'
      '    SEX'
      'FROM'
      '    FIRST_NAMES '
      'where sex = :psex or cast(:psex as char(1)) = '#39#39
      'order by 2')
    BeforeOpen = ds_FNamesBeforeOpen
    Transaction = MAINDM.pMainTransaction
    Database = MAINDM.pMainDatabase
    UpdateTransaction = NamesTrans
    Left = 412
    Top = 188
    object ds_FNamesID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_FNamesNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 30
      EmptyStrToNull = True
    end
    object ds_FNamesSEX: TFIBStringField
      FieldName = 'SEX'
      Size = 1
      EmptyStrToNull = True
    end
  end
  object dsc_FNames: TDataSource
    DataSet = ds_FNames
    Left = 442
    Top = 188
  end
  object dsc_SNames: TDataSource
    DataSet = ds_SNames
    Left = 442
    Top = 220
  end
  object ds_SNames: TpFIBDataSet
    InsertSQL.Strings = (
      'INSERT INTO SECOND_NAMES('
      '    NAME, SEX'
      ')'
      'VALUES('
      '    :NAME, :SEX'
      ')'
      'returning id')
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME,'
      '    SEX'
      'FROM'
      '    SECOND_NAMES '
      'where sex = :psex or cast(:psex as char(1)) = '#39#39
      'order by 2')
    BeforeOpen = ds_FNamesBeforeOpen
    Database = MAINDM.pMainDatabase
    UpdateTransaction = NamesTrans
    Left = 412
    Top = 220
    object ds_SNamesID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_SNamesNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 30
      EmptyStrToNull = True
    end
    object ds_SNamesSEX: TFIBStringField
      FieldName = 'SEX'
      Size = 1
      EmptyStrToNull = True
    end
  end
  object NamesTrans: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 414
    Top = 253
  end
  object ReadTrans: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    TRParams.Strings = (
      'read'
      'nowait'
      'rec_version'
      'read_committed')
    TPBMode = tpbDefault
    Left = 580
    Top = 35
  end
end
